Language/OS - Multiplatform Resource Library/LANGUAGE OS.iso/dsp/dspgroup/macros.arc/ADDX.ASM

Assembly Source File | 1983-11-17 | 2.0 KB | 26 lines

*ADD DOUBLE PRECISION
*
ADDX   $MACRO  A        ADD DOUBLE PRECISION
       $VAR ST,SP,SM
       $ASG '*+' TO SP.S
       $ASG '*-' TO SM.S
       $ASG '*' TO ST.S
       $IF A.SV=ST.SV
       ADDH *+          ADD HIGH
       ADDS *-          ADD LOW '*'
       $ELSE
       $IF A.SV=SP.SV
       ADDH *+          ADD HIGH
       ADDS *+          ADD LOW '*+'
       $ELSE
       $IF A.SV=SM.SV
       ADDS *-          ADD LOW
       ADDH *-          ADD HIGH '*-'
       $ELSE
       ADDH :A:         ADD :A: HIGH
       ADDS :A:+1       ADD :A: LOW
       $ENDIF
       $ENDIF
       $ENDIF
       $END